700
Is it possible to display the header using multiple lines(sample 1)

/*begin event AddColumn(oleobject  Column) - Fired after a new column has been added.*/
/*
	Column.Def(52) = 4
	Column.Def(53) = 4
	oTree = ole_1.Object
*/
/*end event AddColumn*/

OleObject oTree,var_Columns

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.HeaderHeight = 36
oTree.HeaderAppearance = 1
oTree.HeaderSingleLine = false
var_Columns = oTree.Columns
	var_Columns.Add("Column")
	var_Columns.Add("This is a bit of text that should break the header").Width = 128
	var_Columns.Add("This is a bit of text that should break the header").Width = 96
oTree.EndUpdate()
699
Is it possible to display the header using multiple lines(sample 2)

/*begin event AddColumn(oleobject  Column) - Fired after a new column has been added.*/
/*
	Column.Def(52) = 4
	Column.Def(53) = 4
	oTree = ole_1.Object
*/
/*end event AddColumn*/

OleObject oTree,var_Columns

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.HeaderHeight = 36
oTree.HeaderAppearance = 1
var_Columns = oTree.Columns
	var_Columns.Add("Column")
	var_Columns.Add("C1").HTMLCaption = "<b>C<off 4>1</b><br>left"
	var_Columns.Add("C2").HTMLCaption = "<c><b>C<off 4>2</b><br><c>center"
	var_Columns.Add("C3").HTMLCaption = "<r><b>C<off 4>3</b><br><r>right"
oTree.EndUpdate()
698
Is it possible to exclude the parent/child items when do the filtering, so to include only items that match the filter without any indentation

/*begin event FilterChange() - Notifies your application that the filter is changed.*/
/*
	oTree = ole_1.Object
	oTree.Indent = oTree.FormatABC("value > 0 ? 18 : 0",.Items.MatchItemCount)
*/
/*end event FilterChange*/

OleObject oTree,var_Column,var_Column1,var_Columns,var_Items
any h,h2

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
oTree.Indent = 18
oTree.FilterInclude = 4
oTree.DrawGridLines = 2
oTree.HeaderAppearance = 1
var_Columns = oTree.Columns
	var_Column = var_Columns.Add("Column")
		var_Column.DisplayFilterButton = true
		var_Column.FilterType = 240
		var_Column.FilterList = 256
		var_Column.Filter = "C1"
	var_Column1 = var_Columns.Add("Pos")
		var_Column1.FormatColumn = "1 rindex ``"
		var_Column1.Position = 0
		var_Column1.AllowSizing = false
		var_Column1.AllowDragging = false
var_Items = oTree.Items
	h = var_Items.AddItem("R1")
	h2 = var_Items.InsertItem(h,,"S")
	var_Items.InsertItem(h2,,"C1")
	var_Items.InsertItem(h2,,"C2")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("R2")
	var_Items.InsertItem(h,,"C1")
	var_Items.InsertItem(h,,"C2")
oTree.ApplyFilter()
oTree.EndUpdate()
697
I would like to display a solid line between "root" items, and dotted lines (default) between child items. How can I do that

OleObject oTree,var_Column,var_Column1,var_ConditionalFormat,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
oTree.DrawGridLines = 1
oTree.GridLineStyle = 512
oTree.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhABMsIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIgGUYJHgmK4tQLHb7zGAABRDDSOIDnGQJXhaI4JQSMMQDGLAZxVFiPRhAWLpBh+PQATrOdLUfSjVwhBKAQEBA==")
var_Column = oTree.Columns.Add("Default")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Column1 = oTree.Columns.Add("Position")
	var_Column1.FormatColumn = "((1 rindex ``) contains `.`) = 0"
	var_Column1.Visible = false
var_ConditionalFormat = oTree.ConditionalFormats.Add("%C1")
	var_ConditionalFormat.BackColor = 31514848 /*0x1e0e0e0*/
var_Items = oTree.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	h = var_Items.AddItem("Root 3")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
oTree.EndUpdate()
696
I can not center or align the cell's caption and icon, when it displays the hierarchy

OleObject oTree,var_Column,var_Items
any h,hChild

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oTree.Columns.Add("Tasks")
	var_Column.Def(17,1)
oTree.HeaderVisible = true
var_Items = oTree.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"<img>1</img> Task (left)")
	hChild = var_Items.InsertItem(h,,"<c><img>2</img> Task (center)")
	hChild = var_Items.InsertItem(h,,"<r>Task (right) <img>3</img>")
	var_Items.ExpandItem(h,true)
oTree.EndUpdate()
695
How do I set an extra data for each item
/*begin event MouseMove(integer  Button, integer  Shift, long  X, long  Y) - Occurs when the user moves the mouse.*/
/*
	any i
	oTree = ole_1.Object
	i = oTree.ItemFromPoint(-1,-1,c,hit)
	MessageBox("Information",string( String(i) ))
	MessageBox("Information",string( String(oTree.Items.ItemData(i)) ))
*/
/*end event MouseMove*/

OleObject oTree,var_Items,var_Items1

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.ColumnAutoResize = true
oTree.Columns.Add("Default")
var_Items = oTree.Items
	var_Items.ItemData(var_Items.AddItem("method 1"),"your extra data of method 1")
	var_Items.InsertItem(0,"your extra data of method 2","method 2")
var_Items1 = oTree.Items
	var_Items1.DefaultItem = var_Items1.AddItem("method 3")
	var_Items1.ItemData(0,"your extra data of method 3")
oTree.EndUpdate()
694
I do not like to specify the item padding for every column I add. The question is how can I do it automatically

OleObject oTree,var_Column,var_Columns,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.AttachTemplate("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}")
oTree.HeaderAppearance = 4
oTree.DrawGridLines = -1
oTree.GridLineStyle = 32
var_Columns = oTree.Columns
	var_Columns.Add("Item")
	var_Column = var_Columns.Add("Pos")
		var_Column.Position = 0
		var_Column.Width = 32
		var_Column.AllowSizing = false
		var_Column.FormatColumn = "1 index ``"
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.EndUpdate()
693
Can I sort the column by check-state

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
var_Column = oTree.Columns.Add("Check")
	var_Column.Def(0,true)
	var_Column.SortType = 32
var_Items = oTree.Items
	var_Items.AddItem()
	var_Items.CellState(var_Items.AddItem(),0,1)
	var_Items.CellState(var_Items.AddItem(),0,1)
	var_Items.AddItem()
oTree.Columns.Item(0).SortOrder = 1
oTree.EndUpdate()
692
Can I sort the column by image

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oTree.Columns.Add("Image")
	var_Column.SortType = 48
var_Items = oTree.Items
	var_Items.CellImage(var_Items.AddItem(),0,3)
	var_Items.AddItem()
	var_Items.CellImage(var_Items.AddItem(),0,1)
	var_Items.CellImage(var_Items.AddItem(),0,2)
oTree.Columns.Item(0).SortOrder = 1
oTree.EndUpdate()
691
How can I display UNICODE characters

OleObject oTree,var_Items,var_StdFont

oTree = ole_1.Object
oTree.BeginUpdate()
var_StdFont = oTree.Font
	var_StdFont.Name = "Arial Unicode"
	var_StdFont.Size = 22
oTree.HeaderVisible = false
oTree.DefaultItemHeight = 48
oTree.Columns.Add("").Def(17,1)
var_Items = oTree.Items
	var_Items.AddItem("Ӓӓ")
	var_Items.AddItem("ᦜᦝ;ᦞ")
	var_Items.AddItem("ɮɭ;ɯ")
	var_Items.AddItem("勳勴勵勶")
	var_Items.FormatCell(var_Items.AddItem(oTree.Version),0,"(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` ")
oTree.EndUpdate()
690
How do I display the position of the item with 0-padding
OleObject oTree,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Items").FormatColumn = "((1 apos ``) lpad `00`) + `. `  + value"
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
	var_Items.AddItem("Item D")
oTree.EndUpdate()
689
Can't get the +/- to be displayed on a divider item. What else can I do

OleObject oTree,var_Columns,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
oTree.DrawGridLines = -1
oTree.TreeColumnIndex = 0
oTree.MarkSearchColumn = false
oTree.FullRowSelect = false
oTree.HeaderAppearance = -1 /*0xfffffff8 | Bump | Sunken*/
var_Columns = oTree.Columns
	var_Columns.Add("C1").Width = 32
	var_Columns.Add("C2").FormatColumn = "1 index ``"
var_Items = oTree.Items
	h = var_Items.AddItem("Cell 1")
	var_Items.CellSingleLine(h,1,false)
	h = var_Items.AddItem("This is bit of text merges all cells in the item (divider shows no +/-)")
	var_Items.ItemDivider(h,0)
	var_Items.ItemBackColor(h,RGB(240,240,240))
	var_Items.ItemDividerLine(h,0)
	var_Items.CellHAlignment(h,0,1)
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Cell 3")
	h = var_Items.AddItem("This is bit of text merges all cells in the item (merge shows +/-)")
	var_Items.ItemBackColor(h,RGB(240,240,240))
	var_Items.CellMerge(h,0,1)
	var_Items.InsertItem(h,,"Child 3")
	var_Items.InsertItem(h,,"Child 4")
	var_Items.ExpandItem(h,true)
oTree.EndUpdate()
688
ADODB Requery sample

/*begin event CellButtonClick(long  Item, long  ColIndex) - Fired after the user clicks on the cell of button type. */
/*
	OleObject cmd
	oTree = ole_1.Object
	cmd = CREATE OLEObject
	cmd.ConnectToNewObject("ADODB.Command")
		cmd.ActiveConnection = oTree.DataSource.ActiveConnection
		cmd.CommandText = "INSERT INTO Orders (EmployeeID) VALUES(12345)"
		cmd.CommandType = 1
		cmd.Execute()
	oTree.DataSource.Requery()
*/
/*end event CellButtonClick*/

OleObject oTree,rs,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.HeaderAppearance = 4
oTree.ColumnAutoResize = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADODB.Recordset")
	rs.Open("Select * From Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access\sample.accdb",1,3)
oTree.DataSource = rs
oTree.ConditionalFormats.Add("%1=12345").BackColor = RGB(240,240,240)
var_Items = oTree.Items
	var_Items.LockedItemCount(0,1)
	h = var_Items.LockedItem(0,0)
	var_Items.ItemDivider(h,0)
	var_Items.CellHasButton(h,0,true)
	var_Items.CellCaption(h,0,"Requery (add a new record, using ADODB.Command)")
	var_Items.CellHAlignment(h,0,1)
oTree.EndUpdate()
687
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeCheckColumns

OleObject oTree,var_Columns

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.ColumnAutoResize = false
oTree.HeaderAppearance = 4
var_Columns = oTree.Columns
	var_Columns.Add("City")
	var_Columns.Add("Start").Visible = false
	var_Columns.Add("End").Visible = false
oTree.Description(26,"Show/Hide")
oTree.ColumnsFloatBarSortOrder = 1
oTree.ColumnsFloatBarVisible = 2
oTree.EndUpdate()
686
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeHiddenColumn

OleObject oTree,var_Columns

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.ColumnAutoResize = false
oTree.HeaderAppearance = 4
var_Columns = oTree.Columns
	var_Columns.Add("City")
	var_Columns.Add("Start").Visible = false
	var_Columns.Add("End").Visible = false
oTree.Description(26,"Show")
oTree.ColumnsFloatBarVisible = -1
oTree.ColumnsFloatBarSortOrder = 1
oTree.EndUpdate()
685
Type of wraps the cell's caption support (Sample 2)

OleObject oTree,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.HeaderSingleLine = false
oTree.HeaderHeight = 36
oTree.DrawGridLines = -2
oTree.ColumnAutoResize = false
oTree.ScrollBySingleLine = true
var_Columns = oTree.Columns
	var_Column = var_Columns.Add("Single-Line (exCaptionSingleLine)")
		var_Column.Width = 96
		var_Column.Def(17,1)
		var_Column.Def(16,-1)
	var_Column1 = var_Columns.Add("Word-Wrap (exCaptionWordWrap)")
		var_Column1.Width = 96
		var_Column1.Def(17,1)
		var_Column1.Def(16,0)
		var_Column1.FormatColumn = "%0"
	var_Column2 = var_Columns.Add("Break-Wrap (exCaptionBreakWrap)")
		var_Column2.Width = 96
		var_Column2.Def(17,1)
		var_Column2.Def(16,1)
		var_Column2.FormatColumn = "%0"
var_Items = oTree.Items
	var_Items.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
	var_Items.AddItem("This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.")
oTree.EndUpdate()
684
Type of wraps the cell's caption support (Sample 1)

OleObject oTree,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.HeaderSingleLine = false
oTree.HeaderHeight = 36
oTree.DrawGridLines = -2
oTree.ColumnAutoResize = false
oTree.ScrollBySingleLine = true
oTree.Columns.Add("Default").Width = 128
var_Items = oTree.Items
	h = var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	h = var_Items.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
	var_Items.CellCaptionFormat(h,0,1)
	h = var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	var_Items.CellSingleLine(h,0,0)
	h = var_Items.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
	var_Items.CellCaptionFormat(h,0,1)
	var_Items.CellSingleLine(h,0,0)
	h = var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	var_Items.CellSingleLine(h,0,1)
	h = var_Items.AddItem("This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.")
	var_Items.CellCaptionFormat(h,0,1)
	var_Items.CellSingleLine(h,0,1)
oTree.EndUpdate()
683
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)

OleObject oTree,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.DrawGridLines = -2
oTree.ColumnAutoResize = false
oTree.ScrollBySingleLine = true
oTree.Columns.Add("Default").Width = 128
var_Items = oTree.Items
	var_Items.CellSingleLine(var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line."),0,1)
	var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
oTree.EndUpdate()
682
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.DrawGridLines = -2
oTree.ColumnAutoResize = false
oTree.ScrollBySingleLine = true
var_Column = oTree.Columns.Add("Default")
	var_Column.Width = 128
	var_Column.Def(16,1)
var_Items = oTree.Items
	var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
	var_Items.AddItem("This is the first line.\r\nThis is the second line.\r\nThis is the third line.")
oTree.EndUpdate()
681
How can I change the visual appearance/color of the Filter For ... field

OleObject oTree,var_Column,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
oTree.BackColorHeader = RGB(1,0,0)
oTree.ForeColorHeader = RGB(255,255,255)
oTree.Background(26,oTree.BackColorHeader)
oTree.Background(27,oTree.ForeColorHeader)
oTree.Background(0,RGB(240,240,240))
oTree.Background(32,-1)
oTree.HeaderAppearance = 5
var_Column = oTree.Columns.Add("Items")
	var_Column.FilterOnType = true
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 2
var_Items = oTree.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
oTree.EndUpdate()
680
How can I display the cell's caption without spaces on both sides

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.ColumnAutoResize = true
var_Column = oTree.Columns.Add("Default")
	var_Column.Def(17,1)
	var_Column.FormatColumn = "((trim(value) replace `   ` with ` `) replace `  ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`"
var_Items = oTree.Items
	var_Items.AddItem("")
	var_Items.AddItem("Item A")
	var_Items.AddItem("    Item B")
	var_Items.AddItem("        Item   C    ")
oTree.EndUpdate()
679
How can I highlight the spaces within the column (sample 2)

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.ColumnAutoResize = true
var_Column = oTree.Columns.Add("Default")
	var_Column.Def(17,1)
	var_Column.FormatColumn = "`'` + ( value replace ` ` with `_` ) + `'`"
var_Items = oTree.Items
	var_Items.AddItem("")
	var_Items.AddItem("Item A")
	var_Items.AddItem("    Item B")
	var_Items.AddItem("        Item   C    ")
oTree.EndUpdate()
678
How can I highlight the spaces within the column (sample 1)

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.ColumnAutoResize = true
var_Column = oTree.Columns.Add("Default")
	var_Column.Def(17,1)
	var_Column.FormatColumn = "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )"
var_Items = oTree.Items
	var_Items.AddItem("")
	var_Items.AddItem("Item A")
	var_Items.AddItem("    Item B")
	var_Items.AddItem("        Item   C    ")
oTree.EndUpdate()
677
How can I change the visual aspect of the drop down filter-calendar

OleObject oTree,var_Column

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Background(26,RGB(0,0,1))
oTree.Background(27,RGB(255,255,255))
oTree.Background(12,RGB(255,255,255))
oTree.Background(8,oTree.Background(26))
oTree.Background(11,RGB(128,128,128))
var_Column = oTree.Columns.Add("Date")
	var_Column.FilterType = 4
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterDate = true
	var_Column.DisplayFilterPattern = false
oTree.EndUpdate()
676
Export Data in HTML format

OleObject oTree,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormats,var_Items,var_ShellBrowserWindow
any h,sFile

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
oTree.BackColorAlternate = RGB(240,240,240)
oTree.DrawGridLines = -1
oTree.HeaderAppearance = 4
oTree.Description(11,String(oTree.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oTree.Description(11))))
oTree.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oTree.FilterBarPromptVisible = 2579 /*exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
oTree.FilterBarPromptType = 2
var_ConditionalFormats = oTree.ConditionalFormats
	var_ConditionalFormats.Add("%0 like `*parent*`","parent").BackColor = RGB(192,192,192)
	var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `*child*`","child")
		var_ConditionalFormat.ForeColor = RGB(255,128,128)
		var_ConditionalFormat.ApplyTo = 0
	var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `*B*`","b")
		var_ConditionalFormat1.ForeColor = RGB(0,0,255)
		var_ConditionalFormat1.Bold = true
		var_ConditionalFormat1.Italic = true
		var_ConditionalFormat1.ApplyTo = 0
var_Columns = oTree.Columns
	var_Column = var_Columns.Add("Value")
		var_Column.Width = 128
		var_Column.HTMLCaption = "<b>VA</b><r>sko"
	var_Column1 = var_Columns.Add("APos")
		var_Column1.FormatColumn = "0 apos ``"
		var_Column1.AllowSort = false
		var_Column1.Def(4,15790320)
		var_Column1.Def(5,8421504)
		var_Column1.Def(8,var_Column1.Def(5))
		var_Column1.Position = 0
	var_Column2 = var_Columns.Add("RPos")
		var_Column2.FormatColumn = "0 rpos ``"
		var_Column2.AllowSort = false
		var_Column2.Position = 1
	var_Column3 = var_Columns.Add("Index")
		var_Column3.FormatColumn = "0 index ``"
		var_Column3.DisplayFilterButton = true
		var_Column3.FilterList = 256
		var_Column3.Position = 2
	var_Column4 = var_Columns.Add("Data 1")
		var_Column4.FormatColumn = "0 index `A-Z`"
		var_Column4.Def(0,true)
	var_Column5 = var_Columns.Add("Data 2")
		var_Column5.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
		var_Column5.Def(16,false)
		var_Column5.Def(17,1)
		var_Column5.Def(1,true)
	var_Column6 = var_Columns.Add("Data 3")
		var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
		var_Column6.Def(17,1)
var_Items = oTree.Items
	h = var_Items.AddItem("ParentA")
	var_Items.InsertItem(h,,"Child A")
	var_Items.InsertItem(h,,"Child B")
	var_Items.CellState(h,4,1)
	var_Items.CellBackColor(var_Items.InsertItem(h,,"Child C"),5,RGB(0,255,0))
	var_Items.ExpandItem(h,true)
	var_Items.AddItem("Item A")
	h = var_Items.AddItem("ParentB")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.CellBackColor(var_Items.InsertItem(h,,"Child 3"),5,RGB(0,255,0))
	var_Items.CellState(h,5,1)
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
	var_Items.AddItem("Item D")
	var_Items.ExpandItem(h,true)
oTree.EndUpdate()
sFile = "c:/temp/export.html"
oTree.Export(sFile,"vis")
var_ShellBrowserWindow = CREATE OLEObject
var_ShellBrowserWindow.ConnectToNewObject("InternetExplorer.Application")
	var_ShellBrowserWindow.Navigate2(sFile)
675
Export Data in CSV format

OleObject oTree,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormats,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
oTree.BackColorAlternate = RGB(240,240,240)
oTree.DrawGridLines = -1
oTree.HeaderAppearance = 4
oTree.Description(11,String(oTree.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oTree.Description(11))))
oTree.FilterBarCaption = "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oTree.FilterBarPromptVisible = 2579 /*exFilterBarCompact | exFilterBarShowCloseIfRequired | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
oTree.FilterBarPromptType = 2
var_ConditionalFormats = oTree.ConditionalFormats
	var_ConditionalFormats.Add("%0 like `*parent*`","parent").BackColor = RGB(192,192,192)
	var_ConditionalFormat = var_ConditionalFormats.Add("%0 like `*child*`","child")
		var_ConditionalFormat.ForeColor = RGB(255,128,128)
		var_ConditionalFormat.ApplyTo = 0
	var_ConditionalFormat1 = var_ConditionalFormats.Add("%0 like `*B*`","b")
		var_ConditionalFormat1.ForeColor = RGB(0,0,255)
		var_ConditionalFormat1.Bold = true
		var_ConditionalFormat1.Italic = true
		var_ConditionalFormat1.ApplyTo = 0
var_Columns = oTree.Columns
	var_Column = var_Columns.Add("Value")
		var_Column.Width = 128
		var_Column.HTMLCaption = "<b>VA</b><r>sko"
	var_Column1 = var_Columns.Add("APos")
		var_Column1.FormatColumn = "0 apos ``"
		var_Column1.AllowSort = false
		var_Column1.Def(4,15790320)
		var_Column1.Def(5,8421504)
		var_Column1.Def(8,var_Column1.Def(5))
		var_Column1.Position = 0
	var_Column2 = var_Columns.Add("RPos")
		var_Column2.FormatColumn = "0 rpos ``"
		var_Column2.AllowSort = false
		var_Column2.Position = 1
	var_Column3 = var_Columns.Add("Index")
		var_Column3.FormatColumn = "0 index ``"
		var_Column3.DisplayFilterButton = true
		var_Column3.FilterList = 256
		var_Column3.Position = 2
	var_Column4 = var_Columns.Add("Data 1")
		var_Column4.FormatColumn = "0 index `A-Z`"
		var_Column4.Def(0,true)
	var_Column5 = var_Columns.Add("Data 2")
		var_Column5.FormatColumn = "0 index `AB` replace `A` with `<off -4>A</off>`"
		var_Column5.Def(16,false)
		var_Column5.Def(17,1)
		var_Column5.Def(1,true)
	var_Column6 = var_Columns.Add("Data 3")
		var_Column6.FormatColumn = "0 index `CDC` replace `D` with `<b>D</b>`"
		var_Column6.Def(17,1)
var_Items = oTree.Items
	h = var_Items.AddItem("ParentA")
	var_Items.InsertItem(h,,"Child A")
	var_Items.InsertItem(h,,"Child B")
	var_Items.CellState(h,4,1)
	var_Items.CellBackColor(var_Items.InsertItem(h,,"Child C"),5,RGB(0,255,0))
	var_Items.ExpandItem(h,true)
	var_Items.AddItem("Item A")
	h = var_Items.AddItem("ParentB")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.CellBackColor(var_Items.InsertItem(h,,"Child 3"),5,RGB(0,255,0))
	var_Items.CellState(h,5,1)
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
	var_Items.AddItem("Item D")
	var_Items.ExpandItem(h,true)
oTree.EndUpdate()
MessageBox("Information",string( String(oTree.Export("","vis")) ))
674
Is it possible to check multiple-items at once

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	OleObject var_Items
	any bHasParent
	oTree = ole_1.Object
	bHasParent = oTree.FormatABC("value != 0",oTree.Items.ItemParent(Item))
	var_Items = oTree.Items
		var_Items.CellHasCheckBox(Item,0,false)
*/
/*end event AddItem*/

OleObject oTree,var_Column,var_Items
any h,hChild

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
var_Column = oTree.Columns.Add("Tasks")
	var_Column.Def(17,1)
	var_Column.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
oTree.HeaderVisible = true
oTree.SingleSel = false
var_Items = oTree.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	hChild = var_Items.InsertItem(h,,"Task 2")
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.ExpandItem(h,true)
	var_Items.LockedItemCount(0,1)
	var_Items.CellCaption(var_Items.LockedItem(0,0),0,"<c>Select multiple items and press the <b>SPACE</b> key")
oTree.EndUpdate()
673
How can I get the icon from the cell when using the Items.CellImages property (icon index)

/*begin event MouseMove(integer  Button, integer  Shift, long  X, long  Y) - Occurs when the user moves the mouse.*/
/*
	any i
	oTree = ole_1.Object
	i = oTree.ItemFromPoint(-1,-1,c,hit)
	MessageBox("Information",string( String(oTree.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` )  : `no image`",hit,oTree.Items.CellImages(i,c))) ))
*/
/*end event MouseMove*/

OleObject oTree,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oTree.Columns.Add("Default")
var_Items = oTree.Items
	var_Items.CellImages(var_Items.AddItem("Item 1"),0,"3,2,1")
	var_Items.CellImages(var_Items.AddItem("Item 2"),0,"2,3")
	var_Items.CellImages(var_Items.AddItem("Item 3"),0,"2,")
oTree.EndUpdate()
672
How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell)

/*begin event MouseMove(integer  Button, integer  Shift, long  X, long  Y) - Occurs when the user moves the mouse.*/
/*
	any i
	oTree = ole_1.Object
	i = oTree.ItemFromPoint(-1,-1,c,hit)
	MessageBox("Information",string( String(oTree.FormatABC("( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit)) ))
*/
/*end event MouseMove*/

OleObject oTree,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oTree.Columns.Add("Default")
var_Items = oTree.Items
	var_Items.CellImages(var_Items.AddItem("Item 1"),0,"3,2,1")
	var_Items.CellImages(var_Items.AddItem("Item 2"),0,"2,3")
	var_Items.CellImages(var_Items.AddItem("Item 3"),0,"2")
oTree.EndUpdate()
671
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop

OleObject oTree,var_Appearance,var_Columns

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.HeaderAppearance = 4
var_Columns = oTree.Columns
	var_Columns.Add("Column 1")
	var_Columns.Add("Column 2")
	var_Columns.Add("Column 3")
var_Appearance = oTree.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=")
	var_Appearance.Add(2,"CP:1 0 -36 0 0")
oTree.Background(182,33554432 /*0x2000000*/)
oTree.EndUpdate()
670
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do

OleObject oTree,var_Column,var_Column1,var_ConditionalFormat,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.ColumnAutoResize = true
oTree.DefaultItemHeight = 20
oTree.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1mY1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2hhWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQRJSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==")
var_Column = oTree.Columns.Add("Default")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Column1 = oTree.Columns.Add("Position")
	var_Column1.FormatColumn = "1 rindex ``"
	var_Column1.Visible = false
var_ConditionalFormat = oTree.ConditionalFormats.Add("%C1 mod 2")
	var_ConditionalFormat.BackColor = 16777216 /*0x1000000*/
var_Items = oTree.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
oTree.EndUpdate()
669
How can I specify alternate background colors for each root item, similar with BackColorAlternate

OleObject oTree,var_Column,var_Column1,var_ConditionalFormat,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
var_Column = oTree.Columns.Add("Default")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Column1 = oTree.Columns.Add("Position")
	var_Column1.FormatColumn = "( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )"
	var_Column1.Visible = false
var_ConditionalFormat = oTree.ConditionalFormats.Add("%C1 mod 2")
	var_ConditionalFormat.BackColor = RGB(240,240,240)
var_Items = oTree.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	h = var_Items.AddItem("Root 3")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
oTree.EndUpdate()
668
Is it possible to change the caption from a column without to remove the column and add it with the new caption
OleObject oTree

oTree = ole_1.Object
oTree.Columns.Add("ColumnName").Caption = "NewName"
oTree.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name"
667
FilterBarCaption ALL Keyword ( sample 2, result ) 

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	any i
	oTree = ole_1.Object
	i = oTree.FormatABC("value + 1",oTree.Items.ItemToIndex(Item))
	oTree.Items.CellImage(Item,3,i)
*/
/*end event AddItem*/

OleObject oTree,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oTree.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oTree.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oTree.Columns.Add("Check")
	var_Column2.Def(0,true)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oTree.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oTree.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oTree.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellCaption(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oTree.FilterBarFont = oTree.Font
oTree.Description(11,String(oTree.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oTree.Description(11))))
oTree.FilterBarCaption = "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oTree.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oTree.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oTree.Columns.Item(2).Filter = String(1)
oTree.ApplyFilter()
oTree.EndUpdate()
666
FilterBarCaption ALL Keyword ( sample 1 ) 

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	any i
	oTree = ole_1.Object
	i = oTree.FormatABC("value + 1",oTree.Items.ItemToIndex(Item))
	oTree.Items.CellImage(Item,3,i)
*/
/*end event AddItem*/

OleObject oTree,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oTree.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oTree.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oTree.Columns.Add("Check")
	var_Column2.Def(0,true)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oTree.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oTree.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oTree.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellCaption(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oTree.FilterBarFont = oTree.Font
oTree.Description(11,String(oTree.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oTree.Description(11))))
oTree.FilterBarCaption = "all"
oTree.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oTree.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oTree.Columns.Item(2).Filter = String(1)
oTree.ApplyFilter()
oTree.EndUpdate()
665
FilterBarCaption ALLUI Keyword ( sample 2, result ) 

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	any i
	oTree = ole_1.Object
	i = oTree.FormatABC("value + 1",oTree.Items.ItemToIndex(Item))
	oTree.Items.CellImage(Item,3,i)
*/
/*end event AddItem*/

OleObject oTree,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oTree.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oTree.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oTree.Columns.Add("Check")
	var_Column2.Def(0,true)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oTree.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oTree.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oTree.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellCaption(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oTree.FilterBarFont = oTree.Font
oTree.Description(11,String(oTree.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oTree.Description(11))))
oTree.FilterBarCaption = "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` )  + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oTree.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oTree.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oTree.Columns.Item(2).Filter = String(1)
oTree.ApplyFilter()
oTree.EndUpdate()
664
FilterBarCaption ALLUI Keyword ( sample 1 ) 

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	any i
	oTree = ole_1.Object
	i = oTree.FormatABC("value + 1",oTree.Items.ItemToIndex(Item))
	oTree.Items.CellImage(Item,3,i)
*/
/*end event AddItem*/

OleObject oTree,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oTree.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oTree.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oTree.Columns.Add("Check")
	var_Column2.Def(0,true)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oTree.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oTree.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oTree.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellCaption(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oTree.FilterBarFont = oTree.Font
oTree.Description(11,String(oTree.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oTree.Description(11))))
oTree.FilterBarCaption = "allui"
oTree.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oTree.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oTree.Columns.Item(2).Filter = String(1)
oTree.ApplyFilter()
oTree.EndUpdate()
663
FilterBarCaption AVAILABLE Keyword ( sample 2, result ) 

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	any i
	oTree = ole_1.Object
	i = oTree.FormatABC("value + 1",oTree.Items.ItemToIndex(Item))
	oTree.Items.CellImage(Item,3,i)
*/
/*end event AddItem*/

OleObject oTree,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oTree.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oTree.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oTree.Columns.Add("Check")
	var_Column2.Def(0,true)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oTree.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oTree.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oTree.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellCaption(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oTree.FilterBarFont = oTree.Font
oTree.Description(11,String(oTree.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oTree.Description(11))))
oTree.FilterBarCaption = "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( available replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
oTree.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oTree.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oTree.Columns.Item(2).Filter = String(1)
oTree.ApplyFilter()
oTree.EndUpdate()
662
FilterBarCaption AVAILABLE Keyword ( sample 1 ) 

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	any i
	oTree = ole_1.Object
	i = oTree.FormatABC("value + 1",oTree.Items.ItemToIndex(Item))
	oTree.Items.CellImage(Item,3,i)
*/
/*end event AddItem*/

OleObject oTree,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Column = oTree.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oTree.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oTree.Columns.Add("Check")
	var_Column2.Def(0,true)
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterType = 6
var_Column3 = oTree.Columns.Add("Image")
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterType = 10
	var_Column3.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Column4 = oTree.Columns.Add("Pos")
	var_Column4.AllowSizing = false
	var_Column4.AllowSort = false
	var_Column4.Width = 32
	var_Column4.FormatColumn = "1 apos ``"
	var_Column4.Position = 0
var_Items = oTree.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellCaption(h,1,"Sub-Item B")
	var_Items.CellState(h,2,1)
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oTree.FilterBarFont = oTree.Font
oTree.Description(11,String(oTree.FormatABC("`<fgcolor=808080> ` + value + ` </fgcolor>`",oTree.Description(11))))
oTree.FilterBarCaption = "value + ` ` + available"
oTree.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column5 = oTree.Columns.Item(0)
	var_Column5.FilterType = 240
	var_Column5.Filter = "Item A|Item B"
oTree.Columns.Item(2).Filter = String(1)
oTree.ApplyFilter()
oTree.EndUpdate()
661
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )

OleObject oTree,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
var_Column = oTree.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oTree.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oTree.Columns.Add("Pos")
	var_Column2.AllowSizing = false
	var_Column2.AllowSort = false
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oTree.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	var_Items.CellCaption(var_Items.AddItem("Item B"),1,"Sub-Item B")
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oTree.FilterBarFont = oTree.Font
oTree.Description(11,String(oTree.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oTree.Description(11))))
oTree.FilterBarCaption = "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oTree.FilterBarPromptVisible = 256
var_Column3 = oTree.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oTree.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oTree.ApplyFilter()
oTree.EndUpdate()
660
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )

OleObject oTree,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
var_Column = oTree.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oTree.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oTree.Columns.Add("Pos")
	var_Column2.AllowSizing = false
	var_Column2.AllowSort = false
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oTree.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	var_Items.CellCaption(var_Items.AddItem("Item B"),1,"Sub-Item B")
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oTree.FilterBarFont = oTree.Font
oTree.Description(11,String(oTree.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oTree.Description(11))))
oTree.FilterBarCaption = "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
oTree.FilterBarPromptVisible = 256
var_Column3 = oTree.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oTree.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oTree.ApplyFilter()
oTree.EndUpdate()
659
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )

OleObject oTree,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
var_Column = oTree.Columns.Add("Col-1")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oTree.Columns.Add("Col-2")
	var_Column1.DisplayFilterButton = true
	var_Column1.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column2 = oTree.Columns.Add("Pos")
	var_Column2.AllowSizing = false
	var_Column2.AllowSort = false
	var_Column2.Width = 32
	var_Column2.FormatColumn = "1 apos ``"
	var_Column2.Position = 0
var_Items = oTree.Items
	var_Items.CellCaption(var_Items.AddItem("Item A"),1,"Sub-Item A")
	var_Items.CellCaption(var_Items.AddItem("Item B"),1,"Sub-Item B")
	var_Items.CellCaption(var_Items.AddItem("Item C"),1,"Sub-Item C")
oTree.Description(11,String(oTree.FormatABC("`<fgcolor=808080>` + value + `</fgcolor>`",oTree.Description(11))))
oTree.FilterBarCaption = "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
oTree.FilterBarPromptVisible = 256
var_Column3 = oTree.Columns.Item(0)
	var_Column3.FilterType = 240
	var_Column3.Filter = "Item A|Item B"
var_Column4 = oTree.Columns.Item(1)
	var_Column4.FilterType = 3
	var_Column4.Filter = "*B"
oTree.ApplyFilter()
oTree.EndUpdate()
658
Is it possible to automatically displays the control's filter label to the right

OleObject oTree,var_Column,var_Column1,var_Column2,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
var_Column = oTree.Columns.Add("Item")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oTree.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarCaption = "`<r>` + value"
oTree.FilterBarPromptVisible = 1280 /*exFilterBarShowCloseOnRight | exFilterBarToggle*/
var_Column2 = oTree.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item B"
oTree.ApplyFilter()
oTree.EndUpdate()
657
How can I get the number of results/items being shown in the control's filter bar (sample 4)

OleObject oTree,var_Column,var_Column1,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
var_Column = oTree.Columns.Add("Item")
	var_Column.DisplayFilterButton = true
	var_Column.FilterList = 9504 /*exShowExclude | exShowFocusItem | exShowCheckBox | exSortItemsAsc*/
var_Column1 = oTree.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarFont = oTree.Font
oTree.FilterBarPrompt = String(oTree.FormatABC("`<b>` + value",oTree.FilterBarPrompt))
oTree.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
oTree.FilterBarPromptVisible = 3591 /*exFilterBarCompact | exFilterBarShowCloseOnRight | exFilterBarShowCloseIfRequired | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
oTree.EndUpdate()
656
How can I get the number of results being shown in the control's filter bar (sample 3)

OleObject oTree,var_Column,var_Column1,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarFont = oTree.Font
oTree.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : ``)"
oTree.FilterBarPromptVisible = 2055 /*exFilterBarCompact | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oTree.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item A|Item B"
oTree.ApplyFilter()
oTree.EndUpdate()
655
How can I get the number of results being shown in the control's filter bar (sample 2, compact)

OleObject oTree,var_Column,var_Column1,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarFont = oTree.Font
oTree.FilterBarCaption = "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
oTree.FilterBarPromptVisible = 2071 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oTree.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item A|Item B"
oTree.ApplyFilter()
oTree.EndUpdate()
654
How can I get the number of results being shown in the control's filter bar (sample 1)

OleObject oTree,var_Column,var_Column1,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarFont = oTree.Font
oTree.FilterBarCaption = "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
oTree.FilterBarPromptVisible = 7 /*exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oTree.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item A|Item B"
oTree.ApplyFilter()
oTree.EndUpdate()
653
FilterBarCaption Predefined Keywords

/*begin event AfterExpandItem(long  Item) - Fired after an item is expanded (collapsed).*/
/*
	oTree = ole_1.Object
	oTree.Refresh()
*/
/*end event AfterExpandItem*/

OleObject oTree,var_Column,var_Column1,var_Column2,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Check")
	var_Column.Def(0,true)
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.FilterType = 6
var_Column1 = oTree.Columns.Add("Pos")
	var_Column1.AllowSizing = false
	var_Column1.AllowSort = false
	var_Column1.Width = 32
	var_Column1.FormatColumn = "1 apos ``"
	var_Column1.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	h = var_Items.AddItem("Item B")
	var_Items.CellState(var_Items.InsertItem(h,,"Sub-Item B1"),1,1)
	var_Items.InsertItem(h,,"Sub-Item B2")
	var_Items.ExpandItem(h,true)
	var_Items.AddItem("Item C")
oTree.FilterInclude = 1
oTree.FilterBarFont = oTree.Font
oTree.FilterBarCaption = "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>: ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=808080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + `</fgcolor>`"
oTree.FilterBarPromptPattern = "B"
oTree.FilterBarPromptVisible = 7 /*exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column2 = oTree.Columns.Item(0)
	var_Column2.FilterType = 240
	var_Column2.Filter = "Item A|Item B"
oTree.ApplyFilter()
oTree.EndUpdate()
652
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines

OleObject oTree,var_Column,var_Column1,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarFont = oTree.Font
oTree.FilterBarCaption = "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
oTree.FilterBarPromptPattern = "B"
oTree.FilterBarPromptVisible = 2067 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oTree.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item A|Item B"
oTree.ApplyFilter()
oTree.EndUpdate()
651
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarPromptVisible = 1281 /*exFilterBarShowCloseOnRight | exFilterBarToggle | exFilterBarPromptVisible*/
oTree.FilterBarPrompt = String(oTree.FormatABC("`<r>` + value",oTree.FilterBarPrompt))
oTree.EndUpdate()
650
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.RightToLeft = true
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarPromptVisible = 257 /*exFilterBarToggle | exFilterBarPromptVisible*/
oTree.EndUpdate()
649
How can I change the visual appearance of the filter bar's close button (EBN)

OleObject oTree,var_Appearance,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
var_Appearance = oTree.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" &
	 +"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ")
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarPromptVisible = 257 /*exFilterBarToggle | exFilterBarPromptVisible*/
oTree.Background(1,16777216 /*0x1000000*/)
oTree.EndUpdate()
648
How can I change the visual appearance of the filter bar's close button (solid)

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarPromptVisible = 1
oTree.Background(1,RGB(255,0,0))
oTree.EndUpdate()
647
Is it possible to prevent definitely showing the filter bar's close button

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarPromptVisible = 1
oTree.Background(1,-1)
oTree.EndUpdate()
646
Is it possible to show the close button only if there is a filter applied

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarPromptVisible = 513 /*exFilterBarShowCloseIfRequired | exFilterBarPromptVisible*/
oTree.EndUpdate()
645
The control's filter bar is not closed once I click the close button (toggle)

OleObject oTree,var_Column,var_Column1,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
	var_Items.LockedItemCount(2,1)
	h = var_Items.LockedItem(2,0)
	var_Items.ItemDivider(h,0)
	var_Items.CellCaption(h,0,"<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus.")
	var_Items.CellCaptionFormat(h,0,1)
oTree.FilterBarCaption = "`<r><fgcolor=808080>` + value"
oTree.FilterBarPromptPattern = "B"
oTree.FilterBarPromptVisible = 2323 /*exFilterBarCompact | exFilterBarToggle | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oTree.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item B"
oTree.ApplyFilter()
oTree.EndUpdate()
644
How can I display the control's filter on a single line

OleObject oTree,var_Column,var_Column1,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value  : `<fgcolor 808080>no filter`"
oTree.FilterBarPromptVisible = 18 /*exFilterBarSingleLine | exFilterBarVisible*/
var_Column1 = oTree.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item A|Item B"
oTree.ApplyFilter()
oTree.EndUpdate()
643
How can I display the control's filter on a single line (prompt-combined)

OleObject oTree,var_Column,var_Column1,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarCaption = "`<r>` + value"
oTree.FilterBarPromptVisible = 2067 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oTree.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item A|Item B"
oTree.ApplyFilter()
oTree.EndUpdate()
642
How can I get the number of results after a filter is applied

/*begin event Click() - Occurs when the user presses and then releases the left mouse button over the tree control.*/
/*
	oTree = ole_1.Object
	oTree.ClearFilter()
*/
/*end event Click*/

/*begin event FilterChange() - Notifies your application that the filter is changed.*/
/*
	oTree = ole_1.Object
	MessageBox("Information",string( "Items.MatchItemCount" ))
	MessageBox("Information",string( String(oTree.Items.MatchItemCount) ))
	MessageBox("Information",string( String(oTree.FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",oTree.Items.MatchItemCount)) ))
*/
/*end event FilterChange*/

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarPromptVisible = 1
oTree.FilterBarPromptPattern = "Item"
oTree.EndUpdate()
641
How can I programmatically clear the control's filter

/*begin event Click() - Occurs when the user presses and then releases the left mouse button over the tree control.*/
/*
	oTree = ole_1.Object
	oTree.ClearFilter()
*/
/*end event Click*/

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarPromptVisible = 1
oTree.FilterBarPromptPattern = "B"
oTree.EndUpdate()
640
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

OleObject oTree,var_Column,var_Column1,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarPromptPattern = "B"
oTree.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oTree.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item B"
oTree.ApplyFilter()
oTree.EndUpdate()
639
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarPromptVisible = 1
oTree.FilterBarPromptPattern = "B"
oTree.EndUpdate()
638
Is it possible to prevent closing the control's filter bar, so it is always shown

OleObject oTree,var_Column,var_Column1,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Item").DisplayFilterButton = true
var_Column = oTree.Columns.Add("Pos")
	var_Column.AllowSizing = false
	var_Column.AllowSort = false
	var_Column.Width = 32
	var_Column.FormatColumn = "1 apos ``"
	var_Column.Position = 0
var_Items = oTree.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oTree.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
oTree.FilterBarPromptVisible = 2
var_Column1 = oTree.Columns.Item(0)
	var_Column1.FilterType = 240
	var_Column1.Filter = "Item B"
oTree.ApplyFilter()
oTree.EndUpdate()
637
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 4)

OleObject oTree,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
oTree.VisualDesign = "gBFLBWIgBAEHhEJAEGg6VAkHeLpgwChAOhULB8XAUUg8MAAREEHGMcgRCJ0ei8dhABDEcQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBRWAkEwiBiEQTjea5CgOIAFS7LIqjRQEBxhIaZYIGaiQADENo9TxIMZAfBIHShK6NJABCCSQKkYx0HScRijDIEFwGIQmbKiej4DCiCQQW7OYYRVCNMQSfa8HivJyrcamfp/YBgOBYHb1eLVPR5LwfPCGUw1P6PLxkORZHimK4tSLHV7xVpMIwZFafIQhCCoHomS5NU7UNR0TQUFx9FaGX7rDDsGwLAJ6XRgF4bg2VpnHePpenAN4bH2GwHFmApSjEGBLnWOpRGOTBZHOegrE6BxPiWVJqCweQrn0LgJAWJBjwgaw1gKO5HmWch5h+fovF+G5bmich4BgfZkB8dynRUVYqiUR5rnmex/F6N4tn2AJfnebZ3DEXw3HWXgzAyIwgicKJKBKEIhCeCgiHyHYFEmSAFmqBghFIdgSCeIJygYDAyAgJx6AoIINAMOJNCgCZCGoGoLmMCI+CwJoihMNglCCIhzFCUg0EmMhghWDBkAiQg9CUY4jEYN4Jk2IxklYJoJHIUg+CSZJSESFwkkkGI+FOFIJEIRhPhMCRJCSVoRrSBhiDgTZjHYT4PEkYhwhgJYm0SaIaiaSYuE+GQNlmCIBGCJxjhiZQ5AkMhAg6ExJCkPhPguaAiFYUAlAkKZ0g6HoOEmWR/GHcA4m0OwIlIJIHCRgQshGJhpjoaocieaZiC6GAimkUgehIOwnGYGYIGkah6jaE4rg6SpCjKK5rEOMYlGIGIihKOggloFoqj6L5aGaBo6CkGIkAQjiPpCAAaJILCTJQlKPACDaXJgmSaJsnCdJ4nygKEoijKQpSmKcqCpKoqysK0rivLAsSyLMtC1LYty4Lkui7LwvS+L8wDBMIwzEMUxjHMgyT" &
	 +"KMszDNM4zzQNE0jTNQ1TWNc2DZNo2zcN03jfOA4TiOM5DlOY5zoOk6jrOw7TuO88DxPI8z0PU9j3Pg+T6Ps/D9P4/0AQFAkDQRBUGQdCEJQpC0MQ1DkPRBEUSRNFEVBhFkXRhGQ9D6Dxfh+W5gGGd4QH2XQjCmDpFFaKoVB+D5Xmed5+H8YAHnIAh9EwV5Fl0d4MkMKJICmSgygSJAoEmMUCIPgnDCCIOQFYCxJjwFoCcA4kxoF+AIJkAgExegDEgEYQInAzCUAIOEGgfxiiRDYF1Q4EQ2BSCaEQYwbAiKREMpRSymFNDIAkAxT6oVRgSA2qdVKq1WqvVirMZQUhSCnBUMoIgoQRgnGSIQUgkg1hIHYAkAYMROAmHiLsE4xxSCxBwEwCQ0wmDdBsE0GYXBtg2CSPMFIuwYiQBYBQeAcwOCnBCCZgw0g0glBONAQgqQThCGgPQGoBQfiRGmOEZIPAXjsBoPAO4HRThhA0EQSA5BAgaCKJIGg3QdhOCmNUBoQAijTCIF0FwQxpCHDIPAYYMQGgtCmFcaQtRAjZCyFYSojQ2B2BoKwIYFApBXEIBsIQ1QsAWAWEwaA1xCgjAoIAQBAQ="
oTree.Columns.Add("Column")
var_Items = oTree.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child")
oTree.EndUpdate()
636
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)

OleObject oTree,var_Appearance,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
var_Appearance = oTree.VisualAppearance
	var_Appearance.Add(3,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
	var_Appearance.Add(1,"CP:3 -2 -2 2 2")
	var_Appearance.Add(4,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
	var_Appearance.Add(2,"CP:4 -2 -2 2 2")
oTree.LinesAtRoot = 1
oTree.HasButtons = 4
oTree.HasButtonsCustom(false,16777216)
oTree.HasButtonsCustom(true,33554432)
oTree.Columns.Add("Column")
var_Items = oTree.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child")
oTree.EndUpdate()
635
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)

OleObject oTree,var_Appearance,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
var_Appearance = oTree.VisualAppearance
	var_Appearance.Add(1,"XP:TREEVIEW 2 1")
	var_Appearance.Add(2,"XP:TREEVIEW 2 2")
oTree.Background(180,16777216 /*0x1000000*/)
oTree.Background(181,33554432 /*0x2000000*/)
oTree.LinesAtRoot = -1
oTree.Columns.Add("Column")
var_Items = oTree.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child")
oTree.EndUpdate()
634
How can I find if the control is running in DPI mode
OleObject oTree

oTree = ole_1.Object
MessageBox("Information",string( String(oTree.FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`")) ))
633
How can I change the visual appearance of the +/- buttons (method 1)

OleObject oTree,var_Appearance,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
var_Appearance = oTree.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=")
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCEeBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchOFSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQOJtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=")
oTree.LinesAtRoot = -1
oTree.Background(180,16777216 /*0x1000000*/)
oTree.Background(181,33554432 /*0x2000000*/)
oTree.Columns.Add("Column")
var_Items = oTree.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child")
oTree.EndUpdate()
632
I am using single selection, the question is if possible to select an item only when the user releases the mouse, as currently it selects the item as soon as the user clicks it
/*begin event SelectionChanged() - Fired after a new item has been selected.*/
/*
	oTree = ole_1.Object
	MessageBox("Information",string( "SelectionChanged" ))
*/
/*end event SelectionChanged*/

OleObject oTree,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.FreezeEvents(true)
oTree.SingleSel = true
oTree.SelectOnRelease = true
oTree.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
var_Items = oTree.Items
	var_Items.AddItem("")
	var_Items.SelectItem(var_Items.AddItem(""),true)
	var_Items.AddItem("")
oTree.FreezeEvents(false)
oTree.EndUpdate()
631
Is it possible to select nothing
/*begin event SelectionChanged() - Fired after a new item has been selected.*/
/*
	oTree = ole_1.Object
	MessageBox("Information",string( "SelectionChanged" ))
*/
/*end event SelectionChanged*/

OleObject oTree,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.FreezeEvents(true)
oTree.AllowSelectNothing = true
oTree.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
var_Items = oTree.Items
	var_Items.AddItem("")
	var_Items.SelectItem(var_Items.AddItem(""),true)
	var_Items.AddItem("")
oTree.FreezeEvents(false)
oTree.EndUpdate()
630
How can I specify the color for control's selection when it loses the focus

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
var_Column = oTree.Columns.Add("")
	var_Column.AllowSizing = false
	var_Column.AllowDragging = false
	var_Column.AllowSort = false
	var_Column.Width = 24
	var_Column.Def(2,true)
oTree.Columns.Add("Column").FormatColumn = "1 apos `A-Z`"
var_Items = oTree.Items
	var_Items.AddItem("")
	var_Items.SelectItem(var_Items.AddItem(""),true)
	var_Items.AddItem("")
oTree.Background(166,RGB(196,196,196))
oTree.Background(167,RGB(0,0,1))
oTree.EndUpdate()
629
How can I change the background color for checked items (EBN color, frame)

/*begin event CellStateChanged(long  Item, long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oTree = ole_1.Object
	oTree.Refresh()
*/
/*end event CellStateChanged*/

OleObject oTree,var_Appearance,var_Column,var_ConditionalFormat,var_Items
any h,hChild

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
oTree.SelBackMode = 1
oTree.DefaultItemHeight = 22
var_Column = oTree.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Appearance = oTree.VisualAppearance
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEcx9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJcFqXFSLVxNBKAQEBA=")
	var_Appearance.Add(1,"CP:2 1 1 -1 -1")
var_ConditionalFormat = oTree.ConditionalFormats.Add("%CS0 = 1")
	var_ConditionalFormat.BackColor = 16777216 /*0x1000000*/
oTree.HeaderVisible = true
var_Items = oTree.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.CellState(hChild,0,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.CellState(hChild,0,1)
	var_Items.ExpandItem(h,true)
oTree.EndUpdate()
628
How can I change the caption of the checked items (sample 2)

OleObject oTree,var_Column,var_Items
any h,hChild

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
var_Column = oTree.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
	var_Column.Def(17,1)
	var_Column.FormatColumn = "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value"
oTree.HeaderVisible = true
var_Items = oTree.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.CellState(hChild,0,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.CellState(hChild,0,1)
	var_Items.ExpandItem(h,true)
oTree.EndUpdate()
627
How can I change the caption of the checked items (sample 1)

OleObject oTree,var_Column,var_Items
any h,hChild

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
var_Column = oTree.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
	var_Column.Def(17,1)
	var_Column.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
oTree.HeaderVisible = true
var_Items = oTree.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.CellState(hChild,0,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.CellState(hChild,0,1)
	var_Items.ExpandItem(h,true)
oTree.EndUpdate()
626
How can I change the font for the checked items

/*begin event CellStateChanged(long  Item, long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oTree = ole_1.Object
	oTree.Refresh()
*/
/*end event CellStateChanged*/

OleObject f,oTree,var_Column,var_ConditionalFormat,var_Items
any h,hChild

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
oTree.DefaultItemHeight = 22
var_Column = oTree.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_ConditionalFormat = oTree.ConditionalFormats.Add("%CS0 = 1")
	f = CREATE OLEObject
f.ConnectToNewObject("StdFont")
		f.Name = oTree.Font.Name
		f.Size = 12
	var_ConditionalFormat.Font = f
oTree.HeaderVisible = true
var_Items = oTree.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.CellState(hChild,0,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.CellState(hChild,0,1)
	var_Items.ExpandItem(h,true)
oTree.EndUpdate()
625
How can I bold the checked items

/*begin event CellStateChanged(long  Item, long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oTree = ole_1.Object
	oTree.Refresh()
*/
/*end event CellStateChanged*/

OleObject oTree,var_Column,var_ConditionalFormat,var_Items
any h,hChild

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
var_Column = oTree.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_ConditionalFormat = oTree.ConditionalFormats.Add("%CS0 = 1")
	var_ConditionalFormat.Bold = true
oTree.HeaderVisible = true
var_Items = oTree.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.CellState(hChild,0,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.CellState(hChild,0,1)
	var_Items.ExpandItem(h,true)
oTree.EndUpdate()
624
How can I change the foreground color for checked items

/*begin event CellStateChanged(long  Item, long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oTree = ole_1.Object
	oTree.Refresh()
*/
/*end event CellStateChanged*/

OleObject oTree,var_Column,var_ConditionalFormat,var_Items
any h,hChild

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
oTree.SelBackMode = 1
var_Column = oTree.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_ConditionalFormat = oTree.ConditionalFormats.Add("%CS0 = 1")
	var_ConditionalFormat.ForeColor = RGB(255,128,128)
oTree.HeaderVisible = true
var_Items = oTree.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.CellState(hChild,0,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.CellState(hChild,0,1)
	var_Items.ExpandItem(h,true)
oTree.EndUpdate()
623
How can I change the background color for checked items (solid color)

/*begin event CellStateChanged(long  Item, long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oTree = ole_1.Object
	oTree.Refresh()
*/
/*end event CellStateChanged*/

OleObject oTree,var_Column,var_ConditionalFormat,var_Items
any h,hChild

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
oTree.SelBackMode = 1
var_Column = oTree.Columns.Add("Tasks")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_ConditionalFormat = oTree.ConditionalFormats.Add("%CS0 = 1")
	var_ConditionalFormat.BackColor = RGB(255,128,128)
oTree.HeaderVisible = true
var_Items = oTree.Items
	h = var_Items.AddItem("Project")
	hChild = var_Items.InsertItem(h,,"Task 1")
	var_Items.SelectItem(hChild,true)
	hChild = var_Items.InsertItem(h,,"Task 2")
	var_Items.CellState(hChild,0,1)
	hChild = var_Items.InsertItem(h,,"Task 3")
	var_Items.CellState(hChild,0,1)
	var_Items.ExpandItem(h,true)
oTree.EndUpdate()
622
How can I export the cell's state as well

OleObject oTree,var_Column,var_Columns,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
var_Columns = oTree.Columns
	var_Columns.Add("C1").Def(0,true)
	var_Columns.Add("C2").FormatColumn = "1 index `A-Z`"
	var_Columns.Add("C3").FormatColumn = "100 index ``"
var_Items = oTree.Items
	var_Items.AddItem("Item 1")
	var_Items.CellState(var_Items.AddItem("Item 2"),1)
	var_Items.CellState(var_Items.AddItem("Item 3"),1)
oTree.EndUpdate()
MessageBox("Information",string( "Export CSV Items including Check-State:" ))
oTree.BeginUpdate()
var_Column = oTree.Columns.Add("Check")
	var_Column.Position = 0
	var_Column.FormatColumn = "%CS0"
MessageBox("Information",string( String(oTree.Export("")) ))
oTree.Columns.Remove("Check")
oTree.EndUpdate()
621
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that (method 2)
/*begin event BeforeExpandItem(long  Item, any  Cancel) - Fired before an item is about to be expanded (collapsed).*/
/*
	oTree = ole_1.Object
	MessageBox("Information",string( "BeforeExpandItem" ))
	MessageBox("Information",string( String(Item) ))
	MessageBox("Information",string( "ColumnFromPoint" ))
	MessageBox("Information",string( String(oTree.ColumnFromPoint(-1,-1)) ))
	MessageBox("Information",string( "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." ))
	oTree.Items.InsertItem(Item,,"new child")
*/
/*end event BeforeExpandItem*/

OleObject oTree,var_Columns,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
var_Columns = oTree.Columns
	var_Columns.Add("Items").DisplayFilterButton = true
var_Items = oTree.Items
	var_Items.ItemHasChildren(var_Items.InsertItem(,,"Group 1"),true)
	var_Items.ItemHasChildren(var_Items.InsertItem(,,"Group 2"),true)
oTree.EndUpdate()
620
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that (method 1)
/*begin event BeforeExpandItem(long  Item, any  Cancel) - Fired before an item is about to be expanded (collapsed).*/
/*
	oTree = ole_1.Object
	MessageBox("Information",string( "BeforeExpandItem" ))
	MessageBox("Information",string( String(Item) ))
	oTree.Items.InsertItem(Item,,"new child")
*/
/*end event BeforeExpandItem*/

OleObject oTree,var_Column,var_Columns,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
var_Columns = oTree.Columns
	var_Column = var_Columns.Add("Items")
		var_Column.DisplayFilterButton = true
		var_Column.FilterList = 4
var_Items = oTree.Items
	var_Items.ItemHasChildren(var_Items.InsertItem(,,"Group 1"),true)
	var_Items.ItemHasChildren(var_Items.InsertItem(,,"Group 2"),true)
oTree.EndUpdate()
619
How do I change the drop down filter icon/button (black)

OleObject oTree,var_Appearance,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
var_Appearance = oTree.VisualAppearance
	var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQgmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYThdr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
oTree.Background(32,-1)
oTree.Background(0,16777216 /*0x1000000*/)
oTree.Background(26,RGB(0,0,1))
oTree.Background(27,RGB(255,255,255))
oTree.Description(25,"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>")
oTree.HeaderAppearance = 0
oTree.BackColorHeader = RGB(0,0,0)
oTree.ForeColorHeader = RGB(255,255,255)
oTree.HeaderVisible = true
oTree.BackColorLevelHeader = oTree.BackColor
var_Column = oTree.Columns.Add("Filter")
	var_Column.FilterList = 8448 /*exShowExclude | exShowCheckBox*/
	var_Column.DisplayFilterButton = true
	var_Column.AllowSort = false
	var_Column.AllowDragging = false
var_Items = oTree.Items
	var_Items.AddItem("One")
	var_Items.AddItem("Two")
	var_Items.AddItem("Three")
oTree.EndUpdate()
618
How do I change the drop down filter icon/button (white)

OleObject oTree,var_Appearance,var_Column

oTree = ole_1.Object
oTree.BeginUpdate()
var_Appearance = oTree.VisualAppearance
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YNYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgbhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWBMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
	var_Appearance.Add(1,"CP:2 -14 -4 -2 4")
oTree.Background(0,16777216 /*0x1000000*/)
oTree.Background(32,oTree.BackColor)
oTree.HeaderAppearance = 0
oTree.BackColorHeader = RGB(255,255,255)
oTree.HeaderVisible = true
oTree.HeaderHeight = 24
oTree.BackColorLevelHeader = oTree.BackColor
var_Column = oTree.Columns.Add("Filter")
	var_Column.DisplayFilterButton = true
	var_Column.AllowSort = false
	var_Column.AllowDragging = false
oTree.EndUpdate()
617
Do you have any Fit-To-Page options when printing the control (W x T, Fit-To )

OleObject oTree,rs,var_Print

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.ColumnAutoResize = false
oTree.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access\sample.accdb",3,3)
oTree.DataSource = rs
oTree.EndUpdate()
var_Print = CREATE OLEObject
var_Print.ConnectToNewObject("Exontrol.Print")
	var_Print.Options = "FitToPage =2 x 1"
	var_Print.PrintExt = oTree.Object
	var_Print.Preview()
616
Do you have any Fit-To-Page options when printing the control ( x T, Fit-To Tall )

OleObject oTree,rs,var_Print

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.ColumnAutoResize = false
oTree.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access\sample.accdb",3,3)
oTree.DataSource = rs
oTree.EndUpdate()
var_Print = CREATE OLEObject
var_Print.ConnectToNewObject("Exontrol.Print")
	var_Print.Options = "FitToPage = x 2"
	var_Print.PrintExt = oTree.Object
	var_Print.Preview()
615
Do you have any Fit-To-Page options when printing the control ( W x, Fit-To Wide )

OleObject oTree,rs,var_Print

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.ColumnAutoResize = false
oTree.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access\sample.accdb",3,3)
oTree.DataSource = rs
oTree.EndUpdate()
var_Print = CREATE OLEObject
var_Print.ConnectToNewObject("Exontrol.Print")
	var_Print.Options = "FitToPage = 2 x"
	var_Print.PrintExt = oTree.Object
	var_Print.Preview()
614
Do you have any Fit-To-Page options when printing the control ( percent view, Adjust-To )

OleObject oTree,rs,var_Print

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.ColumnAutoResize = false
oTree.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExTree\Sample\Access\sample.accdb",3,3)
oTree.DataSource = rs
oTree.EndUpdate()
var_Print = CREATE OLEObject
var_Print.ConnectToNewObject("Exontrol.Print")
	var_Print.Options = "FitToPage = 50%"
	var_Print.PrintExt = oTree.Object
	var_Print.Preview()
613
How do I prevent changing the cell's state ( check-box state )
/*begin event CellStateChanging(long  Item, long  ColIndex, long  NewState) - Fired before cell's state is about to be changed.*/
/*
	OleObject var_Items
	oTree = ole_1.Object
	var_Items = oTree.Items
		NewState = var_Items.CellState(Item,ColIndex)
*/
/*end event CellStateChanging*/

OleObject oTree,var_Column,var_Column1,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = -1
var_Column = oTree.Columns.Add("P1")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Column1 = oTree.Columns.Add("P2")
	var_Column1.Def(0,true)
	var_Column1.PartialCheck = true
var_Items = oTree.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
oTree.EndUpdate()
612
How can I use the CellState with ConditionalFormat/ComputedField/FormatColumn

/*begin event CellStateChanged(long  Item, long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oTree = ole_1.Object
*/
/*end event CellStateChanged*/

OleObject oTree,var_Column,var_Column1,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.LinesAtRoot = 4
oTree.SelBackMode = 1
var_Column = oTree.Columns.Add("Items")
	var_Column.Def(0,true)
	var_Column.PartialCheck = true
var_Column1 = oTree.Columns.Add("Format")
	var_Column1.FormatColumn = "%CS0"
	var_Column1.Caption = var_Column1.FormatColumn
	var_Column1.Def(5,8421504)
	var_Column1.Def(8,var_Column1.Def(5))
var_Items = oTree.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Item 1")
	var_Items.CellState(var_Items.InsertItem(h,,"Item 2"),0,1)
	var_Items.CellState(var_Items.InsertItem(h,,"Item 3"),0,1)
	var_Items.ExpandItem(h,true)
oTree.EndUpdate()
611
How can I use the CellData with ConditionalFormat/ComputedField/FormatColumn

OleObject oTree,var_Column,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Items")
var_Column = oTree.Columns.Add("Format")
	var_Column.FormatColumn = "%CD0"
	var_Column.Caption = var_Column.FormatColumn
	var_Column.Def(5,8421504)
	var_Column.Def(8,var_Column.Def(5))
var_Items = oTree.Items
	var_Items.CellData(var_Items.AddItem("Item 1"),0,1234)
	var_Items.CellData(var_Items.AddItem("Item 2"),0,"this is just an user data")
	var_Items.CellData(var_Items.AddItem("Item 3"),0,2001-01-01)
oTree.EndUpdate()
610
How can I use the CellCaption with ConditionalFormat/ComputedField/FormatColumn

OleObject oTree,var_Column,var_Column1,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.Columns.Add("Items")
var_Column = oTree.Columns.Add("Format")
	var_Column.FormatColumn = "%0"
	var_Column.Caption = var_Column.FormatColumn
	var_Column.Def(5,8421504)
	var_Column.Def(8,var_Column.Def(5))
	var_Column.Width = 96
	var_Column.AllowSizing = false
var_Column1 = oTree.Columns.Add("Format")
	var_Column1.FormatColumn = "%C0"
	var_Column1.Caption = var_Column1.FormatColumn
	var_Column1.Def(5,8421504)
	var_Column1.Def(8,var_Column1.Def(5))
	var_Column1.Width = 96
	var_Column1.AllowSizing = false
var_Items = oTree.Items
	var_Items.AddItem(1)
	h = var_Items.AddItem(0)
	var_Items.CellCaption(h,0,"<b>HTML</b> Text")
	var_Items.CellCaptionFormat(h,0,1)
	var_Items.AddItem(2)
oTree.EndUpdate()
609
Can I display the radio-button with a solid color

OleObject oTree,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.RadioImage(false,32699122)
oTree.RadioImage(true,16777216)
oTree.Columns.Add("Check").Def(1,true)
var_Items = oTree.Items
	var_Items.AddItem("Radio 1")
	var_Items.CellState(var_Items.AddItem("Radio 2"),0,1)
	var_Items.AddItem("Radio 1")
oTree.EndUpdate()
608
Can I display the check-box with a solid color

OleObject oTree,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.CheckImage(0,32699122)
oTree.CheckImage(1,16777216)
oTree.Columns.Add("Check").Def(0,true)
var_Items = oTree.Items
	var_Items.AddItem("Check 1")
	var_Items.CellState(var_Items.AddItem("Check 2"),0,1)
	var_Items.AddItem("Check 3")
oTree.EndUpdate()
607
Can I display the column's multiple-lines caption vertically oriented (method 2)

OleObject oTree,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.HeaderHeight = 48
oTree.ColumnAutoResize = true
var_Columns = oTree.Columns
	var_Columns.Add("And others ...")
	var_Column = var_Columns.Add("")
		var_Column.HTMLCaption = "First Column"
		var_Column.HeaderVertical = true
		var_Column.Width = 36
		var_Column.AllowSizing = false
		var_Column.Def(0,true)
		var_Column.Def(48,8)
		var_Column.Position = 0
	var_Column1 = var_Columns.Add("")
		var_Column1.HTMLCaption = "<c><b>Second Column"
		var_Column1.HeaderVertical = true
		var_Column1.Width = 36
		var_Column1.AllowSizing = false
		var_Column1.Def(0,true)
		var_Column1.Def(48,8)
		var_Column1.Position = 1
	var_Column2 = var_Columns.Add("")
		var_Column2.HTMLCaption = "<r>Third Column"
		var_Column2.HeaderVertical = true
		var_Column2.Width = 36
		var_Column2.AllowSizing = false
		var_Column2.Def(0,true)
		var_Column2.Def(48,8)
		var_Column2.Position = 2
var_Items = oTree.Items
	var_Items.CellState(var_Items.AddItem("Item 1"),3,1)
	var_Items.CellState(var_Items.AddItem("Item 2"),2,1)
	var_Items.CellState(var_Items.AddItem("Item 3"),1,1)
oTree.EndUpdate()
606
Can I display the column's multiple-lines caption vertically oriented (method 1)

OleObject oTree,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.HeaderHeight = 48
oTree.HeaderSingleLine = false
oTree.ColumnAutoResize = true
var_Columns = oTree.Columns
	var_Columns.Add("And others ...")
	var_Column = var_Columns.Add("First Column")
		var_Column.HeaderVertical = true
		var_Column.Width = 36
		var_Column.AllowSizing = false
		var_Column.Def(0,true)
		var_Column.Def(48,8)
		var_Column.Position = 0
	var_Column1 = var_Columns.Add("Second Column")
		var_Column1.HeaderBold = true
		var_Column1.HeaderVertical = true
		var_Column1.Width = 36
		var_Column1.AllowSizing = false
		var_Column1.Def(0,true)
		var_Column1.Def(48,8)
		var_Column1.Position = 1
	var_Column2 = var_Columns.Add("Third Column")
		var_Column2.HeaderVertical = true
		var_Column2.Width = 36
		var_Column2.AllowSizing = false
		var_Column2.Def(0,true)
		var_Column2.Def(48,8)
		var_Column2.Position = 2
var_Items = oTree.Items
	var_Items.CellState(var_Items.AddItem("Item 1"),3,1)
	var_Items.CellState(var_Items.AddItem("Item 2"),2,1)
	var_Items.CellState(var_Items.AddItem("Item 3"),1,1)
oTree.EndUpdate()
605
Can I display the column's caption vertically oriented (method 2)

OleObject oTree,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.HeaderHeight = 48
oTree.ColumnAutoResize = true
var_Columns = oTree.Columns
	var_Columns.Add("And others ...")
	var_Column = var_Columns.Add("")
		var_Column.HTMLCaption = "First"
		var_Column.HeaderVertical = true
		var_Column.Width = 20
		var_Column.AllowSizing = false
		var_Column.Def(0,true)
		var_Column.Position = 0
	var_Column1 = var_Columns.Add("")
		var_Column1.HTMLCaption = "<c><b>Second"
		var_Column1.HeaderVertical = true
		var_Column1.Width = 20
		var_Column1.AllowSizing = false
		var_Column1.Def(0,true)
		var_Column1.Position = 1
	var_Column2 = var_Columns.Add("")
		var_Column2.HTMLCaption = "<r>Third"
		var_Column2.HeaderVertical = true
		var_Column2.Width = 20
		var_Column2.AllowSizing = false
		var_Column2.Def(0,true)
		var_Column2.Position = 2
var_Items = oTree.Items
	var_Items.CellState(var_Items.AddItem("Item 1"),3,1)
	var_Items.CellState(var_Items.AddItem("Item 2"),2,1)
	var_Items.CellState(var_Items.AddItem("Item 3"),1,1)
oTree.EndUpdate()
604
Can I display the column's caption vertically oriented (method 1)

OleObject oTree,var_Column,var_Column1,var_Column2,var_Columns,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.HeaderHeight = 48
oTree.ColumnAutoResize = true
var_Columns = oTree.Columns
	var_Columns.Add("And others ...")
	var_Column = var_Columns.Add("First")
		var_Column.HeaderVertical = true
		var_Column.Width = 20
		var_Column.AllowSizing = false
		var_Column.Def(0,true)
		var_Column.Position = 0
	var_Column1 = var_Columns.Add("Second")
		var_Column1.HeaderBold = true
		var_Column1.HeaderVertical = true
		var_Column1.Width = 20
		var_Column1.AllowSizing = false
		var_Column1.Def(0,true)
		var_Column1.Position = 1
	var_Column2 = var_Columns.Add("Third")
		var_Column2.HeaderVertical = true
		var_Column2.Width = 20
		var_Column2.AllowSizing = false
		var_Column2.Def(0,true)
		var_Column2.Position = 2
var_Items = oTree.Items
	var_Items.CellState(var_Items.AddItem("Item 1"),3,1)
	var_Items.CellState(var_Items.AddItem("Item 2"),2,1)
	var_Items.CellState(var_Items.AddItem("Item 3"),1,1)
oTree.EndUpdate()
603
How do I automatically bold items being checked

/*begin event CellStateChanged(long  Item, long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oTree = ole_1.Object
*/
/*end event CellStateChanged*/

OleObject oTree,var_ConditionalFormat,var_Items

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.SelBackMode = 1
var_ConditionalFormat = oTree.ConditionalFormats.Add("%CS0","check")
	var_ConditionalFormat.Bold = true
oTree.Columns.Add("Items").Def(0,true)
oTree.Columns.Add(oTree.ConditionalFormats.Item("check").Expression).FormatColumn = oTree.ConditionalFormats.Item("check").Expression
var_Items = oTree.Items
	var_Items.AddItem("Item 1")
	var_Items.CellState(var_Items.AddItem("Item 2"),0,1)
	var_Items.AddItem("Item 3")
oTree.EndUpdate()
602
How can I include the child items, when a filter is applied

OleObject oTree,var_Columns,var_Items
any h0

oTree = ole_1.Object
oTree.BeginUpdate()
oTree.ColumnAutoResize = true
oTree.ContinueColumnScroll = false
oTree.MarkSearchColumn = false
oTree.SearchColumnIndex = 1
oTree.Indent = 16
oTree.LinesAtRoot = -1
oTree.FilterBarPromptVisible = true
oTree.FilterBarPromptPattern = "Nancy"
oTree.FilterInclude = 1
var_Columns = oTree.Columns
	var_Columns.Add("Name").Width = 96
	var_Columns.Add("Title").Width = 96
	var_Columns.Add("City")
var_Items = oTree.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	var_Items.CellCaption(h0,1,"Sales Representative")
	var_Items.CellCaption(h0,2,"Seattle")
	h0 = var_Items.InsertItem(h0,,"Andrew Fuller")
	var_Items.CellCaption(h0,1,"Vice President, Sales")
	var_Items.CellCaption(h0,2,"Tacoma")
	h0 = var_Items.InsertItem(h0,,"Michael Suyama")
	var_Items.CellCaption(h0,1,"Sales Representative")
	var_Items.CellCaption(h0,2,"London")
	h0 = var_Items.AddItem("Janet Leverling")
	var_Items.CellCaption(h0,1,"Sales Representative")
	var_Items.CellCaption(h0,2,"Kirkland")
	h0 = var_Items.InsertItem(h0,,"Margaret Peacock")
	var_Items.CellCaption(h0,1,"Sales Representative")
	var_Items.CellCaption(h0,2,"Redmond")
oTree.ApplyFilter()
oTree.EndUpdate()
601
How do I get sorted the column as string, numeric, date, date and time. Also how can it be applied to drop down filter panel

OleObject oTree,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Items
any h

oTree = ole_1.Object
oTree.BeginUpdate()
var_Column = oTree.Columns.Add("Date")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.DisplayFilterDate = true
	var_Column.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
var_Column1 = oTree.Columns.Add("DateTime")
	var_Column1.SortType = 3
	var_Column1.DisplayFilterButton = true
	var_Column1.DisplayFilterPattern = false
	var_Column1.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
var_Column2 = oTree.Columns.Add("Time")
	var_Column2.SortType = 4
	var_Column2.DisplayFilterButton = true
	var_Column2.DisplayFilterPattern = false
	var_Column2.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
	var_Column2.FormatColumn = "time(value)"
var_Column3 = oTree.Columns.Add("Numeric")
	var_Column3.SortType = 1
	var_Column3.DisplayFilterButton = true
	var_Column3.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
var_Column4 = oTree.Columns.Add("String")
	var_Column4.DisplayFilterButton = true
	var_Column4.FilterList = 1296 /*exShowFocusItem | exShowCheckBox | exSortItemsDesc*/
var_Items = oTree.Items
	h = var_Items.AddItem(2010-01-27)
	var_Items.CellCaption(h,1,DateTime(2010-01-27,10:00:00))
	var_Items.CellCaption(h,2,var_Items.CellCaption(h,1))
	var_Items.CellCaption(h,3,1)
	var_Items.CellCaption(h,4,var_Items.CellCaption(h,3))
	h = var_Items.AddItem(2011-01-27)
	var_Items.CellCaption(h,1,DateTime(2011-01-27,09:00:00))
	var_Items.CellCaption(h,2,var_Items.CellCaption(h,1))
	var_Items.CellCaption(h,3,11)
	var_Items.CellCaption(h,4,var_Items.CellCaption(h,3))
	h = var_Items.AddItem(2010-11-02)
	var_Items.CellCaption(h,1,DateTime(2010-11-02,09:00:00))
	var_Items.CellCaption(h,2,var_Items.CellCaption(h,1))
	var_Items.CellCaption(h,3,2)
	var_Items.CellCaption(h,4,var_Items.CellCaption(h,3))
oTree.Columns.Item("DateTime").DisplayFilterDate = false
oTree.EndUpdate()